; Music of A Week In The Life Of The Thing (1988) (Players) (Andy Serven)
; Ripped by Megachur the 07/03/2009

	write "AWITLOTT.BIN"

music_date_rip	equ &0739
music_adr	equ &0040
first_theme	equ 0
last_theme	equ 0	; 0 -> 0

	read "music_header_v1_0.asm"

.l0040
	jp l0aec
.l0043
	jp l0086
.l0046
	jp l03c3
.l0049
	jp l03d4
	jp l005b
.l0056 equ $ + 7
.l0055 equ $ + 6
.l0054 equ $ + 5
.l0052 equ $ + 3
.l0050 equ $ + 1
.l004f
	db #00,#00,#00,#00,#00,#00,#00,#00
.l005a equ $ + 3
.l0058 equ $ + 1
.l0057
	db #00,#00,#00,#00
;
.init_music
.l005b
;
	ld h,#0d
	ld l,#00
	ld b,#0e
.l0061
	push bc
	call l0170
	dec h
	pop bc
	djnz l0061
	ld hl,l07f8
	call l0170
	ld hl,l080f
	call l0170
	ld hl,l090f
	call l0170
	inc h
	call l0170
	xor a
	ld (l005a),a
	jp l0117
.l0086
	ld a,(l005a)
	and a
	jp nz,l03ab
	ld a,(l004f)
	cp #ff
	ret z
	and a
	jp nz,l012b
	ld a,(l0056)
	sub #01
	jp c,l00a5
	ld (l0056),a
	jp l00e5
.l00a5
	ld a,(l0054)
	ld (l0056),a
	ld de,(l0050)
	ld hl,(l0052)
	add hl,de
	ld (l0050),hl
	ex de,hl
	ld h,#00
	ld l,e
	call l0170
	inc h
	ld l,d
	call l0170
	inc de
	inc h
	ld l,e
	call l0170
	inc h
	ld l,d
	call l0170
	ex de,hl
	add hl,hl
	ex de,hl
	ld h,#04
	ld l,e
	call l0170
	inc h
	ld l,d
	call l0170
	ld a,(l0055)
	dec a
	jp z,l00e6
	ld (l0055),a
.l00e5
	ret
.l00e6
	ld a,(l0057)
	and a
	jp z,l0117
	dec a
	ld hl,(l0058)
	ld b,(hl)
	bit 7,a
	jp nz,l00fe
	ld (l0057),a
	inc hl
	ld (l0058),hl
.l00fe
	ld de,l01d7
	ld a,b
	add a
	ld b,a
	add a
	add b
	ld h,#00
	ld l,a
	add hl,de
	ld de,l0050
	ld bc,#0006
	ldir
	xor a
	ld (l0056),a
	ret
.l0117
	ld h,#05
	ld l,#00
	ld b,#06
.l011d
	push bc
	call l0170
	dec h
	pop bc
	djnz l011d
	ld a,#80	;	ld a,#ff
	ld (l004f),a
	ret
.l012b
	cp #40
	jp z,l014f
	cp #80
	jp z,l015a
	dec a
	add a
	add a
	add a
	ld de,l0219
	ld h,#00
	ld l,a
	add hl,de
	ld a,(hl)
	ld (l0057),a
	inc hl
	ld (l0058),hl
	xor a
	ld (l004f),a
	jp l00e6
.l014f
	call l0377
	ld a,#ff
	ld (l004f),a
	jp l005b
.l015a
	call l0304
	ld a,#ff
	ld (l004f),a
	ld (l005a),a
	ret
	ld bc,#fffd
	out (c),h
	ld b,#bf
	out (c),l
	ret
.l0170
	ld a,h
	ld c,l
	cp #07
	jp nz,l0040
	res 7,c
	res 6,c
	jp l0040
	call l005b
	ld a,(#5c3b)
	res 5,a
	ld (#5c3b),a
.l0189
	halt
	ld a,(l004f)
	ld bc,l0708
.l0190
	dec bc
	ld a,b
	or c
	jp nz,l0190
	call l0086
	call l03c3
	call l03d4
	ld a,(#5c3b)
	bit 5,a
	jp z,l01be
	res 5,a
	ld (#5c3b),a
	ld a,(#5c08)
	cp #79
	jp z,l01cb
	cp #7a
	jp z,l01d1
	sub #60
	ld (l004f),a
.l01be
	ld bc,#7ffe
	in a,(c)
	bit 0,a
	jp nz,l0189
	jp l005b
.l01cb
	call l014f
	jp l0189
.l01d1
	call l015a
	jp l0189
.l01d7
	db #64,#00,#0a,#00,#00,#0a,#90,#01
	db #f6,#ff,#00,#1e,#90,#01,#c4,#ff
	db #00,#06,#f8,#02,#ba,#ff,#03,#08
	db #0e,#01,#46,#00,#03,#08,#fa,#00
	db #00,#00,#08,#02,#96,#00,#19,#00
	db #02,#04,#00,#0f,#99,#00,#00,#0a
	db #00,#0f,#99,#00,#04,#ff,#b8,#0b
	db #c8,#00,#01,#03,#c4,#09,#c8,#00
.l0219 equ $ + 2
	db #01,#03,#05,#00,#02,#02,#02,#02
	db #00,#00,#07,#03,#04,#00,#02,#02
	db #02,#02,#02,#00,#01,#00,#00,#00
	db #00,#00,#07,#01,#02,#02,#00,#02
	db #02,#02,#01,#05,#00,#00,#00,#00
	db #00,#00,#07,#06,#06,#06,#06,#06
	db #06,#05,#81,#02,#02,#02,#02,#02
	db #02,#02,#05,#01,#02,#02,#02,#02
	db #02,#02,#00,#00,#00,#00,#00,#00
	db #00,#00,#81,#08,#00,#00,#00,#00
	db #00,#00,#01,#07,#00,#00,#00,#00
	db #00,#00,#01,#09,#00,#00,#00,#00
	db #00,#00,#01,#0a,#00,#00,#00,#00
.l0286 equ $ + 7
.l0285 equ $ + 6
.l0284 equ $ + 5
.l0282 equ $ + 3
.l0281 equ $ + 2
	db #00,#00,#00,#00,#00,#00,#00,#01
.l028c equ $ + 5
.l028b equ $ + 4
	db #00,#00,#00,#00,#00,#f8,#0f,#00
.l0290 equ $ + 1
	db #00,#00,#00,#00,#00,#00,#0c,#01
	db #00,#08,#00,#ff,#00,#00,#00,#01
	db #08,#00,#00,#04,#00,#00,#00,#00
.l02a7
	db #00,#f7,#14,#0a,#01,#01,#00,#08
.l02b5 equ $ + 6
	db #04,#bc,#08,#01,#bc,#08,#00,#00
	db #00,#00,#00,#0f,#01,#01,#02,#01
	db #ff,#00,#00,#02,#03,#09,#00,#00
.l02cc equ $ + 5
	db #01,#00,#00,#00,#00,#00,#ef,#ff
	db #ff,#00,#00,#00,#00,#00,#00,#00
.l02da equ $ + 3
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #0f,#0a,#01,#02,#02,#ff,#00,#00
	db #04,#05,#0a,#00,#00,#00,#01,#00
.l02f1 equ $ + 2
	db #00,#00,#00,#00,#df,#ff,#ff,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00
.l0304
	call l037f
	push ix
	ld ix,l0290
	ld a,(l0281)
	add a
	ld b,a
	add a
	add b
	ld l,a
	ld h,#00
	ld de,l08aa
	add hl,de
	ld (l0329),hl
	inc hl
	inc hl
	ld (l0333),hl
	inc hl
	inc hl
	ld (l033d),hl
.l0329 equ $ + 1
	ld hl,(l08bc)
	call l035f
	ld ix,l02b5
.l0333 equ $ + 1
	ld hl,(l08da)
	call l035f
	ld ix,l02da
.l033d equ $ + 1
	ld hl,(l08dd)
	call l035f
	ld a,#01
	ld (l0284),a
	ld h,#07
	ld l,#f8
	call l0170
	ld a,(l0281)
	cp #01
	pop ix
	ret nz
.l0356
	halt
	ld a,(l0284)
	and a
	jp nz,l0356
	ret
.l035f
	ld (ix+#20),l
	ld (ix+#23),l
	ld (ix+#21),h
	ld (ix+#24),h
	call l0689
	ld (ix+#02),#01
	res 7,(ix+#0c)
	ret
.l0377
	call l037f
	xor a
	ld (l0284),a
	ret
.l037f
	ld h,#07
	ld l,#ff
	call l0170
	ld hl,l0285
	ld de,l0286
	ld bc,#000a
	ld (hl),#00
	ldir
	ld a,#f8
	ld (l028c),a
.l0398
	ld b,#0b
	ld h,#00
	ld de,l0285
.l039f
	ld a,(de)
	ld l,a
	push bc
	call l0170
	pop bc
	inc h
	inc de
	djnz l039f
	ret
.l03ab
	ld a,(l004f)
	and a
	jp nz,l012b
	ld a,(l0284)
	and a
	ret z
	ld ix,l0290
	bit 7,(ix+#0c)
	call z,l03e8
	ret
.l03c3
	ld a,(l0284)
	and a
	ret z
	ld ix,l02b5
	bit 7,(ix+#0c)
	call z,l03e8
	ret
.l03d4
	ld a,(l0284)
	and a
	ret z
	ld ix,l02da
	bit 7,(ix+#0c)
	call z,l03e8
	call l0398
	ret
.l03e8
	ld a,(ix+#02)
	dec (ix+#02)
	jp z,l04f2
.l03f1
	bit 0,(ix+#0c)
	jr nz,l0465
	bit 1,(ix+#0c)
	jr nz,l0434
	ld a,(ix+#0b)
	and a
	jr z,l0408
	dec (ix+#0b)
	jr l0465
.l0408
	ld a,(ix+#04)
	ld b,(ix+#08)
	add b
	ld (ix+#04),a
	ld b,(ix+#05)
	cp b
	jr z,l0428
	jr nc,l0422
	ld a,(ix+#07)
	ld (ix+#0b),a
	jr l0465
.l0422
	ld a,(ix+#05)
	ld (ix+#04),a
.l0428
	ld a,(ix+#0c)
	and #fc
	or #02
	ld (ix+#0c),a
	jr l0465
.l0434
	ld a,(ix+#0b)
	and a
	jr z,l043f
	dec (ix+#0b)
	jr l0465
.l043f
	ld a,(ix+#04)
	ld b,(ix+#0a)
	add b
	ld (ix+#04),a
	bit 7,a
	jr nz,l0455
	ld a,(ix+#09)
	ld (ix+#0b),a
	jr l0465
.l0455
	ld (ix+#04),#00
	ld a,(ix+#0c)
	and #fc
	or #02
	ld (ix+#0c),a
	jr l0465
.l0465
	ld a,(ix+#04)
	ld hl,l0285
	ld d,#00
	ld e,(ix+#0f)
	add hl,de
	ld (hl),a
	ld h,(ix+#14)
	ld l,(ix+#13)
	ld d,#00
	ld e,(ix+#10)
	add hl,de
	ld a,(ix+#03)
	push af
	ld a,(hl)
	add (ix+#03)
	ld (ix+#03),a
	call l0560
	pop af
	ld (ix+#03),a
	inc (ix+#10)
	ld a,(ix+#12)
	xor (ix+#10)
	jr nz,l04a1
	ld a,(ix+#11)
	ld (ix+#10),a
.l04a1
	ld a,(ix+#1a)
	cp #ff
	jr z,l04f1
	and a
	jr z,l04b0
	dec (ix+#1a)
	jr nz,l04f1
.l04b0
	dec (ix+#1f)
	jr nz,l04c3
	ld a,(ix+#1e)
	ld (ix+#1f),a
	ld a,(ix+#1c)
	xor #01
	ld (ix+#1c),a
.l04c3
	bit 0,(ix+#1c)
	ld b,(ix+#1b)
	ld a,(ix+#1d)
	jr z,l04d2
	add b
	jr l04d3
.l04d2
	sub b
.l04d3
	ld (ix+#1d),a
	ld c,a
	ld b,#ff
	bit 7,a
	jr nz,l04df
	ld b,#00
.l04df
	ld hl,l0285
	ld d,#00
	ld e,(ix+#0d)
	add hl,de
	ld e,(hl)
	inc hl
	ld d,(hl)
	ex de,hl
	add hl,bc
	ex de,hl
	ld (hl),d
	dec hl
	ld (hl),e
.l04f1
	ret
.l04f2
	ld l,(ix+#00)
	ld h,(ix+#01)
	ld (ix+#10),#00
.l04fc
	ld a,(hl)
	cp #60
	jr z,l055a
	cp #61
	jp z,l0602
	cp #62
	jp z,l05b7
	cp #63
	cp #69
	jp z,l0592
	cp #fe
	jp z,l05e4
	ld (ix+#0c),#00
.l051c equ $ + 1
	sub #00
	ld (ix+#03),a
.l0520
	inc hl
	ld a,(hl)
	dec a
	push hl
	ld h,#00
	ld l,a
	ld de,(l0282)
	add hl,de
	ld a,(hl)
	pop hl
	inc hl
	ld (ix+#02),a
	ld a,(ix+#07)
	ld (ix+#0b),a
	ld (ix+#00),l
	ld (ix+#01),h
	call l0560
	ld a,(ix+#19)
	ld (ix+#1a),a
	ld a,(ix+#1e)
	srl a
	ld (ix+#1f),a
	ld (ix+#1c),#01
	ld (ix+#1d),#00
	jp l03f1
.l055a
	ld (ix+#0c),#02
	jr l0520
.l0560
	ld a,(ix+#17)
	and a
	jr nz,l0583
	ld a,(ix+#03)
	inc a
	inc a
	add a
	ld d,#00
	ld e,a
	ld hl,l0790
	add hl,de
	ld c,(hl)
	inc hl
	ld b,(hl)
.l0576
	ld hl,l0285
	ld d,#00
	ld e,(ix+#0d)
	add hl,de
	ld (hl),c
	inc hl
	ld (hl),b
	ret
.l0583
	ld a,(ix+#03)
	neg
	and #1f
	ld (l028b),a
	ld bc,#0000
	jr l0576
.l0592
	xor a
	ld (l02a7),a
	ld (l02cc),a
	ld (l02f1),a
	ld a,#f8
	ld (l028c),a
	inc hl
	ld a,(hl)
	inc hl
	ld (ix+#17),a
	and a
	jr z,l05f9
	ld b,(ix+#18)
	ld a,(l028c)
	ld a,#ea
	ld (l028c),a
	jr l05f9
.l05b7
	inc hl
	ld a,(hl)
	inc hl
	push hl
	ld (ix+#00),l
	ld (ix+#01),h
	ld de,#0012
	ld hl,l0722
	inc a
	ld b,a
.l05c9
	add hl,de
	djnz l05c9
	ld a,(hl)
	ld (ix+#11),a
	inc hl
	ld a,(hl)
	ld (ix+#12),a
	inc hl
	ld (ix+#14),h
	ld (ix+#13),l
	pop hl
	ld (ix+#10),#00
	jp l04fc
.l05e4
	ld a,(ix+#22)
	dec a
	ld (ix+#22),a
	jr nz,l05f3
	jp l067b
	jp l04fc
.l05f3
	ld l,(ix+#15)
	ld h,(ix+#16)
.l05f9
	ld (ix+#01),h
	ld (ix+#00),l
	jp l04fc
.l0602
	inc hl
	ld a,(hl)
	inc hl
	push hl
	ld (ix+#00),l
	ld (ix+#01),h
	ld de,#0009
	ld hl,l06d1
	inc a
	ld b,a
.l0614
	add hl,de
	djnz l0614
	push hl
	push ix
	pop hl
	ld de,#0005
	add hl,de
	ex de,hl
	pop hl
	ld bc,#0006
	ldir
	ld a,(hl)
	ld (ix+#19),a
	inc hl
	ld a,(hl)
	ld (ix+#1b),a
	inc hl
	ld a,(hl)
	ld (ix+#1e),a
	pop hl
	jp l04fc
.l0638
	inc hl
	ld a,(hl)
	inc hl
	push hl
	add a
	add a
	add a
	ld h,#00
	ld l,a
	ld de,l086a
	add hl,de
	ld (l0282),hl
	pop hl
	jp l068f
.l064d
	inc hl
	ld a,(hl)
	inc hl
	ld (l051c),a
	jp l068f
.l0656
	inc hl
	ld b,(hl)
	inc hl
	ld a,(l051c)
	add b
	ld (l051c),a
	jp l068f
	ld (ix+#0c),#ff
	ld (ix+#03),#00
	ld (ix+#04),#00
	inc hl
	ld a,(hl)
	and a
	jp z,l03f1
	call l0377
	jp l03f1
.l067b
	call l0689
	jp l04f2
.l0681
	pop bc
	jp l0377
.l0685
	pop bc
	jp l0304
.l0689
	ld l,(ix+#20)
	ld h,(ix+#21)
.l068f
	ld a,(hl)
	cp #fa
	jp z,l0656
	cp #fb
	jp z,l064d
	cp #fc
	jp z,l0638
	cp #fd
	jp z,l0685
	cp #fe
	jr z,l06d2
	cp #ff
	jr z,l0681
	push hl
	ld l,a
	ld h,#00
	add hl,hl
	ld de,l077c
	add hl,de
	ld e,(hl)
	inc hl
	ld d,(hl)
	ld (ix+#00),e
	ld (ix+#01),d
	ld (ix+#15),e
	ld (ix+#16),d
	pop hl
	inc hl
	ld a,(hl)
	ld (ix+#22),a
	inc hl
	ld (ix+#20),l
	ld (ix+#21),h
.l06d1
	ret
.l06d2
	ld l,(ix+#23)
	ld h,(ix+#24)
	jr l068f
	db #0f,#08,#00,#0f,#01,#ff,#ff,#04
	db #02,#0f,#01,#00,#0f,#01,#fa,#ff
	db #00,#00,#0f,#01,#00,#0f,#01,#ff
	db #1c,#03,#04,#0e,#01,#00,#0e,#02
	db #ff,#ff,#00,#00,#0f,#01,#00,#0f
.l0708 equ $ + 6
	db #01,#fa,#ff,#00,#00,#0f,#01,#00
	db #0f,#01,#f8,#ff,#00,#00,#0f,#01
	db #00,#0f,#02,#ff,#01,#02,#05,#09
	db #01,#00,#09,#01,#ff,#ff,#00,#00
.l0722
	db #0f,#01,#00,#0f,#09,#ff,#01,#02
	db #05,#0f,#01,#00,#0f,#14,#ff,#01
	db #02,#05,#00,#01,#01,#02,#03,#04
	db #05,#06,#07,#08,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#08,#00,#08
	db #03,#02,#07,#04,#06,#03,#07,#00
	db #00,#00,#00,#00,#00,#00,#00,#01
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.l077c equ $ + 2
	db #00,#00,#f8,#08,#ff,#08,#56,#09
	db #65,#09,#7a,#09,#89,#09,#c1,#09
.l0790 equ $ + 6
	db #d6,#09,#a8,#09,#ef,#09,#00,#00
	db #bf,#0f,#dc,#0e,#07,#0e,#3d,#0d
	db #7f,#0c,#cc,#0b,#22,#0b,#82,#0a
	db #eb,#09,#5d,#09,#d6,#08,#57,#08
	db #df,#07,#6e,#07,#03,#07,#9f,#06
	db #40,#06,#e6,#05,#91,#05,#41,#05
	db #f6,#04,#ae,#04,#6b,#04,#2c,#04
	db #f0,#03,#b7,#03,#82,#03,#4f,#03
	db #20,#03,#f3,#02,#c8,#02,#a1,#02
	db #7b,#02,#57,#02,#36,#02,#16,#02
	db #f8,#01,#dc,#01,#c1,#01,#a8,#01
	db #90,#01,#79,#01,#64,#01,#50,#01
	db #3d,#01,#2c,#01,#1b,#01,#0b,#01
	db #fc,#00,#ee,#00,#e0,#00
.l07f8
	db #d4,#00,#c8,#00,#bd,#00,#b2,#00
	db #a8,#00,#9f,#00,#96,#00,#8d,#00
.l080f equ $ + 7
	db #85,#00,#7e,#00,#77,#00,#70,#00
	db #6a,#00,#64,#00,#5e,#00,#59,#00
	db #54,#00,#4f,#00,#4b,#00,#47,#00
	db #43,#00,#3f,#00,#3b,#00,#38,#00
	db #35,#00,#32,#00,#2f,#00,#2d,#00
	db #2a,#00,#28,#00,#25,#00,#23,#00
	db #21,#00,#1f,#00,#1e,#00,#1c,#00
	db #1a,#00,#19,#00,#18,#00,#16,#00
	db #15,#00,#14,#00,#13,#00,#12,#00
	db #11,#00,#10,#00,#0f,#00,#0e,#00
	db #0d,#00,#0c,#00,#0c,#00,#0b,#00
	db #0b,#00,#0a,#00,#09,#00,#09,#00
.l086a equ $ + 2
	db #08,#00,#01,#02,#03,#04,#06,#08
	db #0c,#10,#02,#04,#06,#08,#0c,#10
	db #18,#20,#03,#06,#09,#0c,#12,#18
	db #24,#30,#04,#08,#0c,#10,#18,#20
	db #30,#40,#05,#0a,#0f,#14,#1e,#28
	db #3c,#50,#06,#0c,#12,#18,#24,#30
	db #48,#60,#07,#0e,#15,#1c,#2a,#38
	db #54,#70,#08,#10,#18,#20,#30,#40
.l08aa equ $ + 2
	db #60,#80,#bc,#08,#da,#08,#dd,#08
	db #bc,#08,#da,#08,#dd,#08,#bc,#08
.l08bc equ $ + 4
	db #da,#08,#dd,#08,#fc,#05,#fb,#08
	db #00,#04,#05,#01,#08,#01,#00,#01
	db #05,#01,#08,#01,#00,#01,#06,#02
	db #07,#01,#05,#01,#09,#02,#08,#01
.l08dd equ $ + 5
.l08da equ $ + 2
	db #00,#63,#01,#0d,#fd,#02,#02,#03
	db #01,#02,#03,#03,#01,#02,#03,#03
	db #01,#02,#01,#04,#02,#03,#01,#02
	db #03,#03,#03,#02,#01,#00,#ff,#fd
	db #61,#03,#62,#00,#60,#08,#fe,#69
	db #01,#61,#01,#62,#00,#19,#01,#60
.l090f equ $ + 7
	db #01,#19,#01,#60,#01,#69,#01,#61
	db #02,#62,#01,#38,#02,#60,#02,#69
	db #00,#61,#01,#62,#00,#1b,#01,#1a
	db #01,#19,#01,#60,#01,#69,#01,#61
	db #02,#62,#01,#38,#02,#69,#00,#61
	db #01,#62,#00,#1c,#01,#1a,#01,#69
	db #01,#61,#01,#62,#00,#19,#04,#69
	db #01,#61,#02,#62,#01,#38,#04,#61
	db #01,#62,#00,#18,#04,#61,#02,#62
	db #01,#38,#02,#38,#02,#fe,#61,#00
	db #62,#00,#25,#01,#25,#01,#25,#01
	db #25,#01,#60,#07,#fe,#2a,#01,#2a
	db #01,#2a,#01,#2a,#01,#60,#04,#2c
	db #01,#2c,#01,#2c,#01,#2c,#01,#60
	db #04,#fe,#61,#00,#62,#00,#29,#01
	db #29,#01,#29,#01,#29,#01,#60,#07
	db #fe,#62,#00,#61,#00,#3d,#02,#3d
	db #02,#44,#02,#44,#04,#3d,#04,#3d
	db #02,#42,#04,#42,#04,#36,#01,#38
	db #01,#36,#01,#3d,#04,#60,#01,#fe
	db #41,#01,#44,#01,#41,#01,#42,#04
	db #36,#01,#38,#01,#3d,#01,#3d,#02
	db #3d,#02,#3c,#01,#3d,#01,#62,#00
	db #fe,#41,#02,#41,#02,#3a,#02,#3f
	db #01,#41,#01,#3d,#02,#36,#01,#3a
	db #02,#3d,#02,#60,#01,#fe,#41,#02
	db #41,#04,#3d,#01,#41,#01,#44,#01
	db #41,#01,#3d,#01,#36,#02,#3a,#02
	db #60,#01,#3d,#06,#60,#06,#fe,#44
	db #01,#42,#01,#3d,#01,#38,#02,#36
	db #01,#38,#01,#3a,#01,#3d,#02,#3d
	db #02,#3a,#01,#3d,#02,#60,#01,#fe
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00

.l0aec
	push bc
	push af
	ld a,#c0
	ld b,#f6
	out (c),a
	ld b,#f4
	pop af
	out (c),a
	ld b,#f6
	ld a,#80
	out (c),a
	ld b,#f4
	out (c),c
	xor a
	ld b,#f6
	out (c),a
	pop bc
	ret
;
.play_music
;
	;ld a,(la0cb)
	;sub #02
	;jp z,l0043
	;dec a
	;jp z,l0046
	;dec a
	;jp z,l0049
	;ret
	call l0043
	call l0046
	jp l0049

	;org #0a27
	;xor a
	;ld (#a0cb),a
	;ld hl,#0c1d
	;ld (#a0c9),hl
	;call #004c
;
.game_name
	db "A Week In The Life Of The Thing",0
.game_year
	db "1988",0
.game_publisher
	db "Players",0
.music_author
	db "Andy Serven",0
.music_comment
	db "",0

	read "music_end_v1_0.asm"
